sub EVENT_SAY{

%Race = (
	0 => [" Soldier", 0],
	1 => [" Human", 1],
  2 => [" Barbarian", 2],
	3 => [" Erudite", 3],
  4 => [" Wood Elf", 4],
	5 => [" High Elf", 5],
  6 => [" Dark Elf", 6],
	7 => [" Half Elf", 7],
  8 => [" Dwarf", 8],
  9 => [" Troll", 9],
  10 => ["  Ogre", 10],
  11 => ["  Halfling", 11],
  12 => ["  Gnome", 12],
  13 => ["  Iksar", 128],
  14 => ["  Froglock", 330],
	);  
 	my $Link4 = quest::saylink("Race", 1);
	if($text=~/hail/i){
    my $LinkRace = quest::saylink("Race", 1);
		$client->Message(10, "$LinkRace");
	}
  
	if($text=~/Race/i){
		$client->Message(10, "Race chosen [$Link4]");
		$Range1 = 0;
		$Range2 = 14;
    my $n = 0;
    while  ($Race{$n}[0]) 
      {	
      my $RaceLN = quest::saylink($Race{$n}[1], 1, $Race{$n}[0]);
      $client->Message(10, "$Race{$n}[1] $RaceLN");
      $n++;
      }
 
  } 
  $npc->SetRace($text);   
}
